home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / PORV5.ARC / POR EDITOR V5 (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  17.7 KB  |  468 lines
  1. 10 DATA161
  2. 20 PRINT"[147]          ...PLEASE WAIT...":PRINT:RESTORE:READCP
  3. 30 IFGR=1THENGR=0:GOTO2990
  4. 40 IFFL=1THEN1680
  5. 50 POKE53280,.:POKE53281,.:FL=1
  6. 60 DEFFNEX(X)=PEEK(27624)+PEEK(27625)*256+PEEK(27626)*65536
  7. 70 DEFFNHL(X)=PEEK(27392+X)+256*PEEK(27392+X+1)
  8. 80 DIMI$(CP),ID$(CP),SA(50),IN$(256),C$(16)
  9. 90 FORX=1TO8:READR$(X):NEXT:FORX=.TO16:READC$(X):NEXT
  10. 100 FORX=1TO6:READAT$(X):NEXT
  11. 110 FORX=1TO255:READIN$(X):NEXT:PRINT
  12. 120 FORX=1TOCP:READI$(X):B$="":PRINT"[145]#"X
  13. 130 FORY=1TO16:READD:B$=B$+CHR$(D):NEXT:ID$(X)=B$:NEXT
  14. 140 GOTO210
  15. 150 DATADWARF,ELF,GNOME,HALF-ELF,HALFLING,HALF-ORC,HUMAN,MONSTER
  16. 160 DATACLERIC,DRUID,FIGHTER,MAGIC-USER,MAGIC-USER,MAGIC-USER,THIEF,MONK
  17. 170 DATACLERIC/FIGHTER,CLERIC/FIGHTER/MAGIC-USER,CLERIC/MAGIC-USER
  18. 180 DATACLERIC/MAGIC-USER,CLERIC/THIEF,FIGHTER/MAGIC-USER,FIGHTER/THIEF
  19. 190 DATAFIGHTER/MAGIC-USER/THIEF,MAGIC-USER/THIEF
  20. 200 DATASTR,INT,WIS,DEX,CON,CHR
  21. 210 AD=27392:GOTO1680
  22. 220 REM EDIT CHARACTER
  23. 230 PRINT"[147][158] 1) NAME:";
  24. 240 FORX=.TO19:IFPEEK(X+AD)<>.THENPRINTCHR$(PEEK(AD+X));:NEXT
  25. 250 PRINT"
  26. 260 RA[178][194](AD[170]114):[153]"SYS 2) RACE: "R$(RA),"SYS3) AGE:";
  27. 270 [153][165]HL(116)
  28. 280 [153]"SYS 4) CLASS: "C$([194](AD[170]115))
  29. 290 [153]
  30. 300 [153]"SYS 5) "AT$(1)":"[194](AD[170]20)"SYS11) ("[194](AD[170]26)"CMD% )
  31. 310 FORX=1TO4:PRINT"[158]"X+5"[157]) "AT$(X+1)":"PEEK(AD+20+X):NEXT
  32. 320 PRINT"[158]10) "AT$(6)""PEEK(AD+20+5)
  33. 330 PRINT
  34. 340 PRINT"[158]12) LEVEL:"PEEK(AD+160),"[158]13) EXP:";FNEX(1)
  35. 350 PRINT"[158]14) HITPOINTS:"PEEK(AD+118):PRINT
  36. 360 PRINT"[158]15) JEWELERY:"FNHL(199)
  37. 370 PRINT"[158]16) GEMS:"FNHL(197)
  38. 380 PRINT"[158]17) PLATINUM:"FNHL(195)
  39. 390 PRINT"[158]18) GOLD:"FNHL(193)
  40. 400 PRINT"[158]19) ELECTRUM:"FNHL(191)
  41. 410 PRINT"[158]20) SILVER:"FNHL(189)
  42. 420 PRINT"[158]21) COPPER:"FNHL(187)
  43. 430 PRINT:NJ=.:NN$="":NR=.:NA=.:NC=.:NS=.:NI=.:ND=.:NW=.:NB=.:NL=.:NP=.:NJ=.
  44. 440 INPUT"ENTER[160]CHOICE OR M FOR MENU:";CH$:CH=VAL(CH$)
  45. 450 IFCH>10THEN480
  46. 460 ONCH+1GOTO1680,490,590,660,730,800,850,900,950,1000,1050
  47. 470 GOTO230
  48. 480 ONCH-10GOTO1100,1170,1650,1220,1270,1320,1370,1420,1470,1520,1570
  49. 490 N$="":FORX=0TO19:IFPEEK(X+AD)<>0THENN$=N$+CHR$(PEEK(AD+X)):NEXT
  50. 500 PRINT"[147]
  51. 510 [153]"CURRENT NAME:"N$
  52. 520 [133]"CHANGE NAME TO:SYS";NN$
  53. 530 [139][195](NN$)[177]19[167][153]"TOO LONG! (< 19 LETTERS)":[137]520
  54. 540 [139]NN$[178]""[167][142]
  55. 550 [141]1620
  56. 560 [139]YN[178].[167]220  
  57. 570 L[178][195](NN$):[129]X[178].[164]L[171]1:[151]AD[170]X,[198]([202](NN$,X[170]1,1)):[130]:NN$[178]"":N$[178]"
  58. 580 FORX=LTO19:POKEAD+X,.:NEXT:GOTO220
  59. 590 PRINT"[147]
  60. 600 [153]"CURRENT RACE:"R$([194](AD[170]114))
  61. 610 [129]X[178]1[164]8:[153]"SYS"X" - "R$(X):[130]
  62. 620 [133]"NEW RACE:SYS";NR
  63. 630 [139]NR[179]1[176]NR[177]8[167]220
  64. 640 [141]1620:[139]YN[178].[167]220
  65. 650 [151]AD[170]114,NR:[137]220
  66. 660 [153]"LOAD
  67. 670 PRINT"CURRENT AGE:";FN HL(116)
  68. 680 INPUT"CHANGE AGE TO (0-32767):[158]";NA
  69. 690 IFNA<.ORNA>32767THEN220
  70. 700 GOSUB1620:IFYN=0THEN470
  71. 710 POKEAD+116,NAAND255:POKEAD+117,INT(NA/256)
  72. 720 GOTO220
  73. 730 PRINT"[147]
  74. 740 [153]"CURRENT CLASS:"C$([194](AD[170]115))
  75. 750 [129]X[178].[164]16:[153]"SYS"X[170]1") "C$(X):[130]
  76. 760 [133]"NEW CLASS:SYS";NC
  77. 770 [139]NC[179]1[176]NC[177]17[167]220
  78. 780 NC[178]NC[171]1:[141]1620:[139]YN[178].[167]470
  79. 790 [151]AD[170]115,NC:[137]220
  80. 800 [153]"LOAD
  81. 810 PRINT"CURRENT STRENGTH:";PEEK(AD+20)
  82. 820 INPUT"NEW STRENTH:[158]";NS
  83. 830 IFNS<.ORNS>255THEN220
  84. 840 POKEAD+20,NS:GOTO220
  85. 850 PRINT"[147]
  86. 860 [153]"CURRENT INTELLEGENCE:"[194](AD[170]21)
  87. 870 [133]"NEW INTELLEGENCE:SYS";NI
  88. 880 [139]NI[179].[176]NI[177]255[167]220
  89. 890 [151]AD[170]21,NI:[137]230
  90. 900 [153]"LOAD
  91. 910 PRINT"CURRENT WISDOM:"PEEK(AD+22)
  92. 920 INPUT"NEW WISDOM:[158]";NW
  93. 930 IFNW<.ORNW>255THEN220
  94. 940 POKEAD+22,NW:GOTO230
  95. 950 PRINT"[147]
  96. 960 [153]"CURRENT DEXTERITY:"[194](AD[170]22)
  97. 970 [133]"NEW DEXTERITY:SYS";ND
  98. 980 [139]ND[179].[176]ND[177]255[167]220
  99. 990 [151]AD[170]23,ND:[137]230
  100. 1000 [153]"LOAD
  101. 1010 PRINT"CURRENT CONSTITUTION:";PEEK(AD+24)
  102. 1020 INPUT"NEW CONSTITUTION:[158]";NC
  103. 1030 IFNC<.ORNC>255THEN220
  104. 1040 POKEAD+24,NC:GOTO230
  105. 1050 PRINT"[147]
  106. 1060 [153]"CURRENT CHRISMA:"[194](AD[170]25)
  107. 1070 [133]"NEW CHRISMA:SYS";NC
  108. 1080 [139]NC[179].[176]NC[177]255[167]220
  109. 1090 [151]AD[170]25,NC:[137]230
  110. 1100 [153]"LOAD":[139][194](AD[170]20)[179][177]18[167][153]"STRENTH MUST BE 18!":[137]1120
  111. 1110 [137]1130
  112. 1120 [129]X[178]1[164]999:[130]:[137]230
  113. 1130 [153]"CURRENT STRENTH BONUS:";[194](AD[170]26)
  114. 1140 [133]"NEW STRENTH BONUS:SYS";NB
  115. 1150 [139]NB[179].[176]NB[177]255[167]220
  116. 1160 [151]AD[170]26,NB:[137]230
  117. 1170 [153]"LOAD
  118. 1180 PRINT"CURRENT LEVEL:"PEEK(AD+160)
  119. 1190 INPUT"NEW LEVEL:[158]";NL
  120. 1200 IFNL<.ORNL>255THEN220
  121. 1210 POKEAD+160,NL:GOTO230
  122. 1220 PRINT"[147]
  123. 1230 [153]"CURRENT HITPOINTS:"[194](AD[170]118)
  124. 1240 [133]"NEW HITPOINTS:SYS";NP
  125. 1250 [139]NP[179].[176]NP[177]255[167]220
  126. 1260 [151]AD[170]118,NP:[137]230
  127. 1270 [153]"LOAD":[153]"CURRENT JEWELERY:"[165]HL(199)
  128. 1280 [133]"CHANGE JEWELERY TO (0-32767):(";NJ
  129. 1290 [139]NJ[179].[176]NJ[177]32767[167]220
  130. 1300 [151]AD[170]199,NJ[175]255:[151]AD[170]200,NJ[173]256
  131. 1310 [137]230
  132. 1320 [153]"LOAD":[153]"CURRENT GEMS:"[165]HL(197)
  133. 1330 [133]"CHANGE GEMS TO (0-32767):SYS";NJ
  134. 1340 [139]NJ[179].[176]NJ[177]32767[167]220
  135. 1350 [151]AD[170]197,NJ[175]255:[151]AD[170]198,NJ[173]256
  136. 1360 [137]230
  137. 1370 [153]"LOAD":[153]"CURRENT PLATINUM:"[165]HL(195)
  138. 1380 [133]"CHANGE PLATINUM TO (0-32767):SYS";NJ
  139. 1390 [139]NJ[179].[176]NJ[177]32767[167]220
  140. 1400 [151]AD[170]195,NJ[175]255:[151]AD[170]196,[181](NJ[173]256)
  141. 1410 [137]230
  142. 1420 [153]"LOAD":[153]"CURRENT GOLD:"[165]HL(193)
  143. 1430 [133]"CHANGE GOLD TO (0-32767):SYS";NJ
  144. 1440 [139]NJ[179].[176]NJ[177]32767[167]220
  145. 1450 [151]AD[170]193,NJ[175]255:[151]AD[170]194,NJ[173]256
  146. 1460 [137]230
  147. 1470 [153]"LOAD":[153]"CURRENT ELECTRUM:"[165]HL(191)
  148. 1480 [133]"CHANGE ELECTRUM TO (0-32767):SYS";NJ
  149. 1490 [139]NJ[179].[176]NJ[177]32767[167]220
  150. 1500 [151]AD[170]191,NJ[175]255:[151]AD[170]192,NJ[173]256
  151. 1510 [137]230
  152. 1520 [153]"LOAD":[153]"CURRENT SILVER:"[165]HL(189)
  153. 1530 [133]"CHANGE SILVER TO (0-32767):SYS";NJ
  154. 1540 [139]NJ[179].[176]NJ[177]32767[167]220
  155. 1550 [151]AD[170]189,NJ[175]255:[151]AD[170]190,NJ[173]256
  156. 1560 [137]230
  157. 1570 [153]"LOAD":[153]"CURRENT COPPER:"[165]HL(187)
  158. 1580 [133]"CHANGE COPPER TO (0-32767):SYS";NJ
  159. 1590 [139]NJ[179].[176]NJ[177]32767[167]220
  160. 1600 [151]AD[170]187,NJ[175]255:[151]AD[170]188,NJ[173]256
  161. 1610 [137]230
  162. 1620 [153]:[153]"ARE YOU SURE (SYSYWAIT/SYSNWAIT)? ";
  163. 1630 [161]A$
  164. 1640 [139]A$[178]"Y"[167]YN[178]1
  165. 1650 [139]A$[179][177]"Y"[167]YN[178].:[139]CH[178]13[167] 1670
  166. 1660 [142]
  167. 1670 [151]AD[170]232,255:[151]AD[170]233,255:[151]AD[170]234,255:[137]220
  168. 1680 [153]"LOADSYS   POOL OF RADIANCE CHARACTER EDITOR    CLR";
  169. 1690 [153]"   BY: CRACKED 1 - OR STEVE KRULEWITZ   ";
  170. 1700 [153]"SYS     THANKS TO TARJAN FOR OPTION #2     "
  171. 1710 [153]"POKE        EDITED BY PHILIPP GARCIA        "
  172. 1720 [153]:AD[178]27392
  173. 1730 [153],"CLR1) LOAD CHARACTER
  174. 1740 PRINT,"[156]2) MAKE ALL + WEAPONS +5
  175. 1750 [153],"CLR3) EDIT CHARACTER
  176. 1760 PRINT,"[156]4) SAVE CHARACTER
  177. 1770 [153],"CLR5) ADD SPECIAL ITEMS
  178. 1780 PRINT,"[156]6) MANIPULATE ITEMS
  179. 1790 NA$[178]"":N$[178]"":[129]X[178]0[164]19:[139][194](X[170]AD)[179][177]0[167]N$[178]N$[170][199]([194](AD[170]X)):[130]
  180. 1800 [153]"VERIFYCURRENT CHARCTER NAME:";N$
  181. 1810 [133]"           CHOICE:SYS";C
  182. 1820 [139]C[179]1[176]C[177]6[167]1680
  183. 1830 [139]C[178]1[167][133]"NAMESYS";NA$:[147]""[170]NA$,8,1
  184. 1840 [145]C[171]1[137]1850,1910,1920,1990,2490
  185. 1850 [129]X[178]27648[164]27972:P[178][194](X)
  186. 1860 [139]P[178]162[176]P[178]163[176]P[178]164[176]P[178]165[167]1880
  187. 1870 [130]:[137]1680
  188. 1880 [139]P[171]161[178][194](X[170]2)[167][151]X,166:[151]X[170]2,5:[137]1870
  189. 1890 [139]P[171]161[178][194](X[170]3)[167][151]X,166:[151]X[170]3,5:[137]1870
  190. 1900 [137]1870
  191. 1910 [137]220
  192. 1920 [133]"CONTSAVE NAME";N$:F$[178]""[170]N$:D[178]8
  193. 1930 A1[178]27392:A2[178]27972:[159]15,8,15,"S0:"[170]F$:[160]15:A$[178]F$
  194. 1940 L[178][194](53)[170]256[172][194](54)[171][195](A$):[151]782,L[173]256:[151]781,L[171][194](782)[172]256
  195. 1950 [151]780,[195](A$):[158]65469
  196. 1960 T[178]A1:[151]254,T[173]256:[151]253,T[171][194](254)[172]256:[151]780,253
  197. 1970 T[178]A2[170]1:[151]782,T[173]256:[151]781,T[171][194](782)[172]256:[158]65496
  198. 1980 [137]1680
  199. 1990 SL[178].:[129]X[178]27664[164]27896[169]16:[139][194](X)[178].[167]SL[178]SL[170]1:SA(SL)[178]X
  200. 2000 [130]:AT[178]1
  201. 2010 E1[178]AT[170]9:[139]E1[177]CP[167]E1[178]CP
  202. 2020 [153]"LOADSYS*** ITEMS TO ADD ***"
  203. 2025 [129]X[178]AT[164]E1:[153]"SYS"X"- "I$(X):[130]
  204. 2030 [153]">SPACE LEFT: WAITSYS"SL
  205. 2040 [153]"ENTER ITEM NUMBER TO ADD, M FOR MENU
  206. 2050 PRINT"OR +/- TO CHANGE PAGE:";
  207. 2060 AD$="":INPUTAD$:AD=VAL(AD$):IFAD$="M"THEN1680
  208. 2070 IFAD$="+"THENAT=AT+10:IFAT>CPTHENAT=INT((AT-10)/10)*10
  209. 2080 IFAD$="-"THENAT=AT-10:IFAT<1THENAT=1
  210. 2090 IFAD<1ORAD>CPORSL=.THEN2010
  211. 2100 FORX=1TO16:POKESA(1)+X-1,ASC(MID$(ID$(AD),X,1)):NEXT
  212. 2110 FORX=1TOSL-1:SA(X)=SA(X+1):NEXT:SL=SL-1:IFSL>0THEN2020
  213. 2120 GOTO1680
  214. 2130 DATABATTLE AXE,HANDE AXE,BARDICHE,BEC DE CORBIN,BILL-GUSARME,BO STICK,CLUB
  215. 2140 DATADAGGER,DART(S),FAUCHARD,FRAUCHARD-FORK,FLAIL,MILITARY FORK,GLAIVE
  216. 2150 DATAGLAIVE-GUSARME,GUSARME,GUSARME-VOULGE,HALBERD,LUCERN HAMMER,HAMMER
  217. 2160 DATAJAVILIN
  218. 2170 DATAJO STICK,MACE,MORING STAR,PARTISAN,MILITARY PICK,AWL PIKE,QUARREL(S)
  219. 2180 DATARANSEUR,SCIMITAR,SPEAR,SPETUM,QUARTER STAFF,BASTARD SWORD,BROARD SWORD
  220. 2190 DATALONG SWORD,SHORT SWORD,TWO-HANDED SWORD,TRIDENT,VOULGE
  221. 2200 DATACOMPOSITE LONG BOW,COMPOSITE SHORT BOW,LONG BOW,SHORT BOW
  222. 2210 DATAHEAVE CROSSBOW,LIGHT CROSSBOW,SLING,MAIL,ARMOR,LEATHER,PADDED,STUDDED
  223. 2220 DATARING,SCALE
  224. 2230 DATACHAIN,SPLINT,BANDED,PLATE,SHIELD,WOOD,ARROW(S),,,POTION,SCROLL,RING
  225. 2240 DATAROD,STAVE,WAND,JUG,AMULET,APPARATUS,BAG,BEAKER,BOAT,BOOK,BOOTS,BOWL
  226. 2250 DATABRACERS,BRAZIER,BROOCH,BROOM,PURSE,CANDLE,CARPET,CENSER,CHIME,CLOAK
  227. 2260 DATACRYSTAL,CUBE,CUBIC,FORTRESS,DECANTER,DECK,DRUMS,DUST,EYES,FIGURIENE
  228. 2270 DATAFLASK,GAUNTLETS,GEM,GIRDLE,HELM,HORN,HORSESHOES,INCENCE,STONE
  229. 2280 DATAINSTRUMENT,JAVILIN,JEWEL
  230. 2290 DATAOINTMENT,LIBRAM,LYRE,MANUAL,MATTOCK,MAUL,MEDALLION,MIRROR,NECKLACE,NET
  231. 2300 DATAPIGMENT,PEARL,PERIAPT,PHYLACTERY,PIPES,HOLE,TOKEN,ROBE,ROPE,RUG,SAW
  232. 2310 DATASCARAB,SPADE,SPHERE,STONE,TALISMAN,TOME,TRIDENT,GRIMORE,WELL,WINGS
  233. 2320 DATAVIAL,LANTERN,MIRROR
  234. 2330 DATAFLASK OF OIL,10' POLE,50' ROPE,IRON,THEVES' PICK & TOOLS,IRON RATIONS
  235. 2340 DATASTANDARD RATIONS,HOLY SYMBOL,VIAL OF HOLY WATER,VIAL OF UNHOLY WATER
  236. 2350 DATABARDING,DRAGON,LIGHTNING,SADDLE,SMALL RAFT,CART,WAGON,+1,+2,+3,+4,+5
  237. 2360 DATAOF,,CLOAK,DISPLACEMENT,TORCH(ES),OIL,SPEED,TAPESTRY,BODILE HEALTH
  238. 2370 DATACOPPER,SILVER,ELECTRUM,GOLD,PLATINUM,OINTMENT,KEOGHTUM'S,SHEET(S)
  239. 2380 DATASTRENGTH,HEALING,HOLDING,EXTRA,GASEOUS FORM,SLIPPERINESS,JEWELED,FLYING
  240. 2390 DATATREASURE FINDING,FEAR,DISSAPERANCE,STATUETTE,FUNGUS,CHAINS(S),PENDANT
  241. 2400 DATABROACH,OF SEEKING,-1,-2,-3,LIGHTNING BOLT,FIRE RESISTANCE
  242. 2410 DATAMAGIC MISSILES,SAVE,CLERICAL SCROLL,MU SCROLL,WITH 1 SPELL
  243. 2420 DATAWITH 2 SPELLS,WITH 3 SPELLS,PROTECTION SCROLL,JEWELERY,FINE,HUGE,BONE
  244. 2430 DATABRASS,KEY,AC2,AC6,AC4,AC3,OF PROTECTION,PARALYZATION,OGRE POWER
  245. 2440 DATAINVISIBILITY,MISSILES,ELVENKIND,ROTTING,COVERED,EFREETI,BOTTLE
  246. 2450 DATAMISSILE ATTRACTOR,OF MAGLUBIYET,SECR DOOR & TRAP DECT
  247. 2460 DATAGOOD DRAGON CONTROL,FEATHER FALLING,GIANT STRENGTH,RESTORATION
  248. 2470 DATA/FLAMETOUNGE,FIREBALLS,SPIRITUAL,BOULDER,DIAMOND,EMERALD,OPAL,SAPHIRE
  249. 2480 DATAOF TYR,OF TEMPUS,OF SUNE,WOODEN,+3 VS UNDEAD,PASS,CURSED
  250. 2490 :
  251. 2500 A3=27665:PRINT"[147][158]*** CURRENT POSSESIONS ***":IN=1
  252. 2510 IFPEEK(A3-1+IN*16)=.THEN2550
  253. 2520 PRINT"[158]"IN"-";
  254. 2530 FORX=A3+2+(IN*16)TOA3+(IN*16)STEP-1:IFPEEK(X)=.THENNEXT:PRINT:GOTO2550
  255. 2540 PRINTIN$(PEEK(X))" ";:NEXT:PRINT
  256. 2550 IN=IN+1:IFIN<17THEN2510
  257. 2560 PRINT:IM$=""
  258. 2570 PRINT"L - LOAD ITEM
  259. 2580 [153]"D - DELETE ITEM
  260. 2590 PRINT:INPUT"ITEM # TO MODIFY OR M FOR MENU[158]";IM$:IFIM$="M"THEN1680
  261. 2600 IFIM$="L"THEN2940
  262. 2610 IFIM$="D"THENINPUT"ITEM";M:AA=(A3-1)+(M*16):FORX=AATOAA+15:POKEX,.:NEXT
  263. 2620 IFIM$="D"THEN2490
  264. 2630 IM=VAL(IM$):IFIM<1ORIM>16THEN2490
  265. 2640 PRINT"[147][158]*** EDIT ITEM ***":A4=(A3-1)+(IM*16)
  266. 2650 PRINT:IN$=IN$(PEEK(A4+3))+" "+IN$(PEEK(A4+2))+" "+IN$(PEEK(A4+1))
  267. 2660 IFMID$(IN$,LEN(IN$),1)=" "THENIN$=LEFT$(IN$,LEN(IN$)-1)
  268. 2670 PRINT"[158]    ITEM NAME:[146] "IN$
  269. 2680 PRINT"[158]1 - EQUPPED:[146] ";
  270. 2690 IFPEEK(A4+6)=.THENPRINT"NO
  271. 2700 [139][194](A4[170]6)[178]128[167][153]"YES
  272. 2710 PRINT"[158]2 - AMOUNT:[146]"PEEK(A4+10)
  273. 2720 PRINT"[158]3 - CHARGES:[146]"PEEK(A4+13)
  274. 2730 PRINT"[158]4 - PLUS VALUE:[146]"PEEK(A4+4)
  275. 2740 PRINT"5 - SAVE ITEM":CN$=""
  276. 2750 INPUT"NUMBER TO CHANGE OR M MENU[158]";CN$:CN=VAL(CN$):IFCN$="M"THEN2500
  277. 2760 IFCN>5ORCN<1THEN2750
  278. 2770 PRINT:IFCN=5THEN2870
  279. 2780 IFCN=1THEN2840
  280. 2790 IFCN=2THENZ=10
  281. 2800 IFCN=3THENZ=13
  282. 2810 IFCN=4THENZ=4
  283. 2820 INPUT"NEW VALUE #[158]";NV:IFNV>=.ANDNV<256THENPOKEZ+A4,NV
  284. 2830 GOTO2640
  285. 2840 INPUT"[158]1 - FOR NO[146] OR [158]2 - FOR YES[146][158]";A
  286. 2850 IFA=1ORA=2THENPOKEA4+6,(A-1)*128
  287. 2860 GOTO2640
  288. 2870 FORX=.TO15:POKE49152+X,PEEK(A4+X):NEXT
  289. 2880 A1=49152:A2=49152+15:OPEN15,8,15,"S0:"+IN$:CLOSE15:A$=IN$
  290. 2890 L=PEEK(53)+256*PEEK(54)-LEN(A$):POKE782,L/256:POKE781,L-PEEK(782)*256
  291. 2900 POKE780,LEN(A$):SYS65469
  292. 2910 T=A1:POKE254,T/256:POKE253,T-PEEK(254)*256:POKE780,253
  293. 2920 T=A2+1:POKE782,T/256:POKE781,T-PEEK(782)*256:SYS65496
  294. 2930 GOTO2640
  295. 2940 SL=.:FORX=27664TO27896STEP16:IFPEEK(X)=.THENSL=1:SA=X:GOTO2960
  296. 2950 NEXT
  297. 2960 IFSL=.THEN2500
  298. 2970 FF$="":INPUT"FILE NAME:[158]";FF$:IFFF$=""THEN2500
  299. 2980 GR=1:LOADFF$,8,1
  300. 2990 FORX=.TO15:POKESA+X,PEEK(49152+X):NEXT:GOTO2500
  301. 3000 DATAARROW(S),73,,,61,,,,,4,,10,,,,,
  302. 3010 DATAARROW(S) +1,73,,162,61,1,,,,4,,20,100,,,,
  303. 3020 DATAAWL PIKE,27,,,27,,,,,80,,,3,,,,
  304. 3030 DATABANDED MAIL,57,,48,57,,,,,94,1,,90,,,,
  305. 3040 DATABANDED MAIL +1,57,162,48,57,1,,,,94,1,,184,11,,,
  306. 3050 DATABARDICHE,3,,,3,,,,,125,,,7,,,,
  307. 3060 DATABASTARD SWORD,34,,,34,,,,,100,,,25,,,,
  308. 3070 DATABATTLE AXE,1,,,1,,,,,75,,,5,,,,
  309. 3080 DATABEC DE CORBIN,4,,,4,,,,,100,,,6,,,,
  310. 3090 DATABILL-GUSARME,5,,,5,,,,,150,,,6,,,,
  311. 3100 DATABO STICK,6,,,6,,,,,15,,,1,,,,
  312. 3105 DATABRACERS AC3,77,,223,79,7,,,,,,,8,82,,,
  313. 3110 DATABRACERS AC4,77,,222,79,6,,,,,,,80,70,,,
  314. 3120 DATABRASS DRAGON FIGURIENE,70,98,156,218,,,,,,,1,75,,,,
  315. 3130 DATABRASS KEY,75,,219,218,,,,,,,,1,,,,
  316. 3140 DATABRASS MIRROR,71,,118,218,,,,,10,,,10,,,,
  317. 3150 DATABROARD SWORD,35,,,35,,,,,75,,,10,,,,
  318. 3160 DATABROARD SWORD -2 CURSED,35,255,202,35,254,,,128,75,,,,,,,
  319. 3170 DATACHAIN MAIL,55,,48,55,,,,,44,1,,75,,,,
  320. 3180 DATACHAIN MAIL +1,55,162,48,55,1,,,,44,1,,172,13,,,
  321. 3190 DATACHAINS(S) OF BONE,72,217,167,197,,,,,150,,50,,,,,
  322. 3200 DATACLOAK OF DISPLACEMENT,92,170,167,88,2,,,,30,,,92,68,,89,133
  323. 3210 DATACLUB,7,,,7,,,,,30,,,1,,,,
  324. 3220 DATACOMPOSITE LONG BOW,41,,,41,,,,,80,,,100,,,,
  325. 3230 DATACOMPOSITE SHORT BOW,42,,,42,,,,,50,,,75,,,,
  326. 3240 DATACOPPER BRAZIER,72,,80,176,,,,,188,2,3,1,,,,
  327. 3250 DATACURSED NECKLACE,76,,119,255,251,251,,128,,,,20,,,,
  328. 3260 DATADAGGER,8,,,8,,,,,10,,,2,,,,
  329. 3270 DATADAGGER +1,8,,162,8,1,,,,10,,,244,1,,,
  330. 3280 DATADART(S),9,,,9,,,,,5,,4,,,,,
  331. 3290 DATADIAMOND NECKLACE,70,,119,245,,,,,10,,1,80,195,,,
  332. 3300 DATADUST COVERED BOOTS,68,77,231,96,,,,,100,,25,,,,,
  333. 3310 DATADUST OF DISSAPERANCE,70,194,167,96,1,,,,20,,,64,31,1,86,
  334. 3320 DATAEFREETI BOTTLE,82,,233,232,10,,,,,,,184,136,,,
  335. 3330 DATAELECTRUM DECANTER,70,,93,178,,,,,100,,,15,,,,
  336. 3340 DATAEMERALD BROACH,70,,199,246,,,,,10,,1,64,31,,,
  337. 3350 DATAFAUCHARD,10,,,10,,,,,60,,,3,,,,
  338. 3360 DATAFINE COMPOSITE LONG BOW,45,,41,215,,,,,60,,,168,97,,,
  339. 3370 DATAFINE OPAL PENDANT,70,198,247,215,,,,,10,,1,84,111,,,
  340. 3380 DATAFINE TAPESTRY,70,,174,215,,,,,32,3,2,136,19,,,
  341. 3390 DATAFLAIL,12,,,12,,,,,150,,,3,,,,
  342. 3400 DATAFLASK OF OIL,86,172,167,99,,,,,30,,1,1,,,,
  343. 3410 DATAFRAUCHARD-FORK,11,,,11,,,,,80,,,8,,,,
  344. 3420 DATAFUNGUS COVERED TAPESTRY,72,174,231,196,,,,,176,4,6,2,,,,
  345. 3430 DATAGAUNTLETS OF OGRE POWER,63,226,167,100,2,,,,40,,,152,58,,38,131
  346. 3440 DATAGLAIVE,14,,,14,,,,,75,,,6,,,,
  347. 3450 DATAGLAIVE-GUSARME,15,,,15,,,,,100,,,10,,,,
  348. 3460 DATAGOLD BANDED WAND,70,69,57,179,,,,,10,,,100,,,,
  349. 3470 DATAGOLD CHAINS(S),70,,197,179,,,,,,,1,100,,,,
  350. 3480 DATAGOLD LIGHTNING FIGURIENE,70,98,157,179,,,,,,,1,138,2,,,
  351. 3490 DATAGOLD SCARAB,70,,132,179,,,,,10,,1,148,17,,,
  352. 3500 DATAGOLD STATUETTE,70,,195,179,,,,,50,,7,244,1,,,
  353. 3510 DATAGUSARME,16,,,16,,,,,80,,,5,,,,
  354. 3520 DATAGUSARME-VOULGE,17,,,17,,,,,150,,,7,,,,
  355. 3530 DATAHALBERD,18,,,18,,,,,175,,,9,,,,
  356. 3540 DATAHAMMER,20,,,20,,,,,50,,,1,,,,
  357. 3550 DATAHAMMER +1,20,,162,20,1,,,,50,,,196,9,,,
  358. 3560 DATAHAMMER +3,20,,164,20,3,,,,50,,,11,46,,,
  359. 3570 DATAHANDE AXE,2,,,2,,,,,50,,,1,,,,
  360. 3580 DATAHANDE AXE +1,2,,162,2,1,,,,50,,,214,6,,,
  361. 3590 DATAHEAVE CROSSBOW,45,,,45,,,,,80,,,20,,,,
  362. 3600 DATAHUGE TAPESTRY,70,,174,216,,,,,32,3,26,44,1,,,
  363. 3610 DATAINCENCE,70,,,106,,,,,10,,,1,,,,
  364. 3620 DATAIRON HOLY SYMBOL OF TEMPUS,71,250,152,148,,,,,40,,,2,,,,
  365. 3630 DATAJAVILIN,21,,,21,,,,,20,,2,1,,,,
  366. 3635 DATAJAVILIN OF LIGHTNING,71,157,167,21,1,,,,20,,,184,11,1,83,
  367. 3640 DATAJEWEL STUDDED BOWL,70,78,52,110,,,,,10,,,44,1,,,
  368. 3650 DATAJEWELED DRAGON STATUETTE,71,195,156,190,,,,,20,,,94,1,,,
  369. 3660 DATAJEWELED SILVER WINGS,70,141,177,190,,,,,10,,1,26,4,,,
  370. 3670 DATAJO STICK,22,,,22,,,,,40,,,1,,,,
  371. 3680 DATALEATHER ARMOR,50,,49,50,,,,,150,,,5,,,,
  372. 3690 DATALEATHER ARMOR +4,50,165,49,50,4,,,,150,,,152,58,,,
  373. 3700 DATALEATHER HOLY SYMBOL,74,,152,50,,,,,,1,6,,,,,
  374. 3710 DATALIGHT CROSSBOW,46,,,46,,,,,50,,,12,,,,
  375. 3720 DATALONG BOW,43,,,43,,,,,100,,,60,,,,
  376. 3730 DATALONG SWORD,36,,,36,,,,,60,,,15,,,,
  377. 3740 DATALONG SWORD +1,36,,162,36,1,,,,60,,,208,7,,,
  378. 3750 DATALONG SWORD +2,36,,163,36,2,,,,60,,,160,15,,240,132
  379. 3760 DATALONG SWORD +2/FLAMETOUNGE,36,241,163,36,2,,,,60,,,148,17,,22,
  380. 3770 DATALONG SWORD +3,36,,164,36,3,,,,60,,,88,27,,82,132
  381. 3780 DATALUCERN HAMMER,19,,,19,,,,,150,,,7,,,,
  382. 3790 DATAMACE,23,,,23,,,,,100,,,8,,,,
  383. 3800 DATAMACE +1,23,,162,23,1,,,,100,,,184,11,,,
  384. 3810 DATAMACE +2,23,,163,23,2,,,,100,,,148,17,,,
  385. 3820 DATAMANUAL OF BODILE HEALTH,70,175,167,114,12,,,,200,,,80,195,1,90,
  386. 3830 DATAMILITARY FORK,13,,,13,,,,,75,,,4,,,,
  387. 3840 DATAMILITARY PICK,26,,,26,,,,,60,,,8,,,,
  388. 3850 DATAMORING STAR,24,,,24,,,,,125,,,5,,,,
  389. 3860 DATAMORING STAR +1,24,,162,24,1,,,,125,,,184,11,,,
  390. 3865 DATANECKLACE OF MISSLES,70,228,167,119,2,,,,,,,179,4,4,87,
  391. 3870 DATAPADDED ARMOR,51,,49,51,,,,,100,,,4,,,,
  392. 3880 DATAPARTISAN,25,,,25,,,,,80,,,10,,,,
  393. 3890 DATAPASS,91,,,254,,,,,,,,,,,,
  394. 3900 DATAPLATE MAIL,58,,48,58,,,,,194,1,,144,1,,,
  395. 3910 DATAPLATE MAIL +2,58,163,48,58,2,,,,194,1,,4,41,,,
  396. 3920 DATAPLATINUM SPHERE,70,,134,180,,,,,30,,1,68,72,,,
  397. 3930 DATAPOTION EXTRA HEALING,70,185,187,64,1,,,,25,,,144,1,3,3,
  398. 3940 DATAPOTION OF GIANT STRENGTH,84,239,167,64,1,,,,25,,,244,1,1,82,
  399. 3950 DATAPOTION OF HEALING,71,185,167,64,1,,,,20,,,144,1,1,85,
  400. 3960 DATAPOTION OF SPEED,71,173,167,64,1,,,,20,,,194,1,1,80,
  401. 3970 DATAQUARREL(S),28,,,28,,,,,20,,20,,,,,
  402. 3980 DATAQUARTER STAFF,33,,,33,,,,,50,,,1,,,,
  403. 3990 DATAQUARTER STAFF +1,33,,162,33,1,,,,50,,,232,3,,,
  404. 4000 DATARANSEUR,29,,,29,,,,,50,,,4,,,,
  405. 4010 DATARING,69,,,66,,,,,,,,1,,,,
  406. 4020 DATARING MAIL,53,,48,53,,,,,250,,,30,,,,
  407. 4030 DATARING OF FEATHER FALLING,90,238,167,66,3,,,,,,,136,19,,,
  408. 4040 DATARING OF FIRE RESISTANCE,69,205,167,66,3,,,,,,,136,19,,61,129
  409. 4050 DATARING OF PROTECTION +1,93,162,224,66,1,,,,,,,16,39,,,
  410. 4060 DATAROTTING LEATHER SADDLE,72,158,50,230,,,,,250,,5,1,,,,
  411. 4070 DATAROTTING RUG,72,,130,230,,,,,232,3,6,1,,,,
  412. 4080 DATASCALE ARMOR,54,,49,54,,,,,144,1,,,,,,
  413. 4090 DATASCALE MAIL,54,,48,54,,,,,144,1,,45,,,,
  414. 4100 DATASCIMITAR,30,,,30,,,,,40,,,15,,,,
  415. 4110 DATASCIMITAR +1,30,,162,30,1,,,,40,,,208,7,,,
  416. 4120 DATASHEET(S) OF GOLD,70,179,167,183,,,,,,,3,3,,,,
  417. 4130 DATASHIELD,59,,,59,,,,,100,,,15,,,,
  418. 4140 DATASHIELD +1,59,,162,59,1,,,,150,,,196,9,,,
  419. 4150 DATASHIELD +2,59,,163,59,2,,,,60,,,136,19,,,
  420. 4160 DATASHORT BOW,44,,,44,,,,,50,,,15,,,,
  421. 4170 DATASHORT BOW +1,44,,162,44,1,,,,50,,,172,13,,,
  422. 4180 DATASHORT SWORD,37,,,37,,,,,35,,,8,,,,
  423. 4190 DATASHORT SWORD +1,37,,162,37,1,,,,35,,,208,7,,,
  424. 4200 DATASHORT SWORD +2,37,,163,37,2,,,,35,,,160,15,,,
  425. 4210 DATASILVER ARROW(S),73,,61,177,,,,,4,,20,20,,,,
  426. 4220 DATASILVER BASTARD SWORD,34,,34,177,,,,,100,,,250,,,,
  427. 4230 DATASILVER BROARD SWORD,35,,35,177,,,,,75,,,100,,,,
  428. 4240 DATASILVER BROOCH,70,,81,177,,,,,10,,,2,,,,
  429. 4250 DATASILVER CHAIN MAIL,55,48,55,177,,,,,44,1,,238,2,,,
  430. 4260 DATASILVER DAGGER,8,,8,177,,,,,10,,1,20,,,,
  431. 4270 DATASILVER DRAGON STATUETTE,70,195,156,177,,,,,20,,1,196,9,,,
  432. 4280 DATASILVER HOLY SYMBOL OF SUNE,71,251,152,177,,,,,40,,,50,,,,
  433. 4290 DATASILVER LONG SWORD,36,,36,177,,,,,60,,,150,,,,
  434. 4300 DATASILVER MACE,23,,23,177,,,,,100,,,80,,,,
  435. 4310 DATASILVER MIRROR,71,,118,177,,,,,20,,,20,,,,
  436. 4320 DATASILVER PLATE MAIL,58,48,58,177,,,,,194,1,,160,15,,,
  437. 4330 DATASILVER QUARREL(S),28,,28,177,,,,,3,,1,20,,,,
  438. 4340 DATASILVER RING,70,,66,177,,,,,,,,90,,,,
  439. 4350 DATASILVER SCARAB,70,,132,177,,,,,10,,,100,,,,
  440. 4360 DATASILVER SHORT SWORD,37,,37,177,,,,,35,,,80,,,,
  441. 4370 DATASILVER TWO-HANDED SWORD,38,,38,177,,,,,250,,,44,1,,,
  442. 4380 DATASLING,47,,,47,,,,,2,,,,,,,
  443. 4390 DATASILVER MIRROR,71,,118,177,,,,,10,,,2,,,,
  444. 4400 DATASLING OF SEEKING +2,47,163,200,47,2,,,,10,,,88,27,,,
  445. 4410 DATASPEAR,31,,,31,,,,,50,,,1,,,,
  446. 4420 DATASPEAR +1,31,,162,31,1,,,,40,,,184,11,,,
  447. 4430 DATASPETUM,32,,,32,,,,,50,,,3,,,,
  448. 4440 DATASPLINT MAIL,56,,48,56,,,,,144,1,,80,,,,
  449. 4450 DATASTONE STATUETTE,72,,195,107,,,,,250,,,30,,,,
  450. 4460 DATASTUDDED LEATHER ARMOR,52,49,50,52,,,,,200,,,15,,,,
  451. 4470 DATATAPESTRY,72,,,174,,,,,244,1,,250,,,,
  452. 4480 DATATRIDENT,39,,,39,,,,,50,,,4,,,,
  453. 4490 DATATWO-HANDED SWORD,38,,,38,,,,,250,,,30,,,,
  454. 4500 DATATWO-HANDED SWORD +1 +3 VS UNDEAD,38,253,162,38,1,,,,250,,,172,13,,3,136
  455. 4510 DATATWO-HANDED SWORD +2,38,,163,38,2,,,,90,,,160,15,,,
  456. 4520 DATAVIAL OF HOLY WATER,85,,,153,,,,,10,,1,25,,,,
  457. 4530 DATAVOULGE,40,,,40,,,,,125,,,2,,,,
  458. 4540 DATAWAND OF LIGHTNING BOLT,78,204,167,69,12,,,,30,,,132,3,100,51,
  459. 4550 DATAWAND OF MAGIC MISSILES,79,206,167,69,10,,,,20,,,32,78,100,88,
  460. 4555 DATAWAND OF PARALYZATION,78,255,167,69,2,,,,10,,,196,9,100,84,
  461. 4560 DATAWOOD HOLY SYMBOL,70,,152,60,,,,,20,,,244,1,,,
  462. 4570 DATAWOODEN HOLY SYMBOL OF TYR,71,249,152,252,,,,,30,,,1,,,,
  463. 5000 F$="FILENAME":OPEN2,8,2,F$+",P,R"
  464. 5010 GET#2,A$,A$
  465. 5020 FORX=1TO16:GET#2,A$
  466. 5030 PRINTASC(A$+CHR$(.))",";:NEXT
  467. 5040 CLOSE2
  468.